home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 5-Fonts & Software / HyperCard 1.2.5 / HyperCard Stacks / Address / background_2179.txt < prev    next >
Text File  |  1989-09-06  |  7KB  |  332 lines
  1. -- background: 2179 from stack: in
  2. -- bmap block id: 3336
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: File Card
  6. ----- HyperTalk script -----
  7. on closeField
  8.   put the date into field "date"
  9. end closeField
  10.  
  11. on newCard
  12.   tabKey
  13. end newCard
  14.  
  15.  
  16.  
  17.  
  18. -- part 1 (field)
  19. -- low flags: 00
  20. -- high flags: 0000
  21. -- rect: left=105 top=52 right=180 bottom=434
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 0
  25. -- font id: 3
  26. -- text size: 14
  27. -- style flags: 0
  28. -- line height: 18
  29. -- part name: Name and Address
  30.  
  31.  
  32. -- part 6 (button)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=234 top=239 right=266 bottom=265
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 1014 / 1014
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Prev
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   go to prev card
  47. end mouseUp
  48.  
  49.  
  50.  
  51. -- part 7 (button)
  52. -- low flags: 00
  53. -- high flags: 0000
  54. -- rect: left=266 top=239 right=266 bottom=297
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 1013 / 1013
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: Next
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   go to next card
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 8 (button)
  71. -- low flags: 00
  72. -- high flags: 0000
  73. -- rect: left=423 top=239 right=265 bottom=453
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 1012 / 1012
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: Return
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   visual effect iris close
  85.   pop card
  86. end mouseUp
  87.  
  88.  
  89.  
  90. -- part 11 (field)
  91. -- low flags: 00
  92. -- high flags: 0000
  93. -- rect: left=134 top=184 right=240 bottom=434
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 3
  98. -- text size: 14
  99. -- style flags: 0
  100. -- line height: 18
  101. -- part name: Phone Number
  102.  
  103.  
  104. -- part 30 (field)
  105. -- low flags: 00
  106. -- high flags: 0000
  107. -- rect: left=338 top=244 right=262 bottom=425
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 3
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: Date
  116.  
  117.  
  118. -- part 36 (button)
  119. -- low flags: 00
  120. -- high flags: 0004
  121. -- rect: left=32 top=30 right=64 bottom=71
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 20098 / 20098
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Home
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   visual effect iris close
  133.   go "Home"
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 37 (button)
  139. -- low flags: 00
  140. -- high flags: 0004
  141. -- rect: left=33 top=72 right=106 bottom=72
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 22855 / 22855
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Yearly
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   get the seconds
  153.   convert it to dateItems
  154.   put ((item 1 of it) - 1987) *2 into whichSix
  155.   if item 2 of it > 6 then add 1 to whichSix
  156.   visual effect zoom open
  157.   if whichSix < 1 then go card 1 of stack "DateBook"
  158.   else if whichSix > 5 then go card 5 of stack "DateBook"
  159.   else
  160.     go to card whichSix of stack "DateBook"
  161.     send "bracketWeek" && the seconds to this card
  162.   end if
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part 38 (button)
  168. -- low flags: 00
  169. -- high flags: 0004
  170. -- rect: left=33 top=114 right=148 bottom=72
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 21209 / 21209
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: Daily
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   set lockScreen to true
  182.   go stack "DateBook"
  183.   goWeekly the seconds
  184.   set lockScreen to false
  185. end mouseUp
  186.  
  187.  
  188.  
  189. -- part 39 (button)
  190. -- low flags: 00
  191. -- high flags: 0004
  192. -- rect: left=33 top=240 right=274 bottom=72
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 20186 / 20186
  195. -- text alignment: 1
  196. -- font id: 0
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: 
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   answer "Sort all cards of this stack according to:" with "First Name" or "Last Name" or "Cancel"
  204.   if it is "First Name"
  205.   then sort by first word of first line of field "Name and Address"
  206. else if it is "Last Name"
  207. then sort by last word of first line of field "Name and Address"
  208. end mouseUp
  209.  
  210.  
  211.  
  212. -- part 40 (button)
  213. -- low flags: 00
  214. -- high flags: 0004
  215. -- rect: left=33 top=198 right=232 bottom=72
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 32670 / 32670
  218. -- text alignment: 1
  219. -- font id: 0
  220. -- text size: 12
  221. -- style flags: 0
  222. -- line height: 16
  223. -- part name: 
  224. ----- HyperTalk script -----
  225. on mouseUp
  226.   show all cards
  227. end mouseUp
  228.  
  229.  
  230.  
  231. -- part 41 (button)
  232. -- low flags: 00
  233. -- high flags: 0004
  234. -- rect: left=33 top=156 right=190 bottom=72
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 20965 / 20965
  237. -- text alignment: 1
  238. -- font id: 0
  239. -- text size: 12
  240. -- style flags: 0
  241. -- line height: 16
  242. -- part name: To Do
  243. ----- HyperTalk script -----
  244. on mouseUp
  245.   go to card "First Do" of stack "Datebook"
  246. end mouseUp
  247.  
  248.  
  249.  
  250. -- part 42 (button)
  251. -- low flags: 00
  252. -- high flags: 0000
  253. -- rect: left=103 top=181 right=203 bottom=130
  254. -- title width / last selected line: 0
  255. -- icon id / first selected line: 30696 / 30696
  256. -- text alignment: 1
  257. -- font id: 0
  258. -- text size: 12
  259. -- style flags: 0
  260. -- line height: 16
  261. -- part name: 
  262. ----- HyperTalk script -----
  263. on mouseUp
  264.   get the selection
  265.   if it is empty then get first line of field "Phone Number"
  266.   if it is empty then ask "Dial what number?"
  267.   if it is not empty then
  268.     push this card
  269.     visual effect zoom open
  270.     go to stack "Phone"
  271.     dial it
  272.     pop card
  273.   end if
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 43 (button)
  279. -- low flags: 00
  280. -- high flags: 0000
  281. -- rect: left=103 top=202 right=224 bottom=130
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 0 / 0
  284. -- text alignment: 1
  285. -- font id: 0
  286. -- text size: 12
  287. -- style flags: 0
  288. -- line height: 16
  289. -- part name: 
  290. ----- HyperTalk script -----
  291. on mouseUp
  292.   get the selection
  293.   if it is empty then get second line of field "Phone Number"
  294.   if it is empty then ask "Dial what number?"
  295.   if it is not empty then
  296.     push this card
  297.     visual effect zoom open
  298.     go to stack "Phone"
  299.     dial it
  300.     pop card
  301.   end if
  302. end mouseUp
  303.  
  304.  
  305.  
  306. -- part 44 (button)
  307. -- low flags: 00
  308. -- high flags: 0000
  309. -- rect: left=103 top=223 right=245 bottom=130
  310. -- title width / last selected line: 0
  311. -- icon id / first selected line: 0 / 0
  312. -- text alignment: 1
  313. -- font id: 0
  314. -- text size: 12
  315. -- style flags: 0
  316. -- line height: 16
  317. -- part name: 
  318. ----- HyperTalk script -----
  319. on mouseUp
  320.   get the selection
  321.   if it is empty then get third line of field "Phone Number"
  322.   if it is empty then ask "Dial what number?"
  323.   if it is not empty then
  324.     push this card
  325.     visual effect zoom open
  326.     go to stack "Phone"
  327.     dial it
  328.     pop card
  329.   end if
  330. end mouseUp
  331.  
  332.